home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / E-G / Externals.cpt / Externals / background_2795.txt < prev    next >
Text File  |  1989-02-26  |  4KB  |  189 lines
  1. -- background: 2795 from stack: in
  2. -- bmap block id: 3087
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   --push recent card
  9. end openBackground
  10.  
  11. on openCard
  12.   --put number of this card into field "cnum"
  13.   set scroll of field description to 0
  14. end openCard
  15.  
  16. on newCard
  17.   send "tabKey"
  18. end newCard
  19.  
  20. on arrowKey whichWay
  21.   if whichWay is "left" then
  22.     visual effect wipe right
  23.     go to previous card
  24.   else if whichWay is "right" then
  25.     visual effect wipe left
  26.     go to next card
  27.   end if
  28. end arrowKey
  29.  
  30.  
  31.  
  32.  
  33. -- part 1 (field)
  34. -- low flags: 00
  35. -- high flags: 0000
  36. -- rect: left=44 top=38 right=57 bottom=112
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 1
  40. -- font id: 0
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: Type
  45.  
  46.  
  47. -- part 14 (button)
  48. -- low flags: 00
  49. -- high flags: 0000
  50. -- rect: left=232 top=306 right=331 bottom=259
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 1014 / 1014
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: Prev
  59. ----- HyperTalk script -----
  60. on mouseUp
  61.   visual effect wipe right
  62.   go to previous card
  63. end mouseUp
  64.  
  65.  
  66.  
  67. -- part 22 (field)
  68. -- low flags: 00
  69. -- high flags: 0000
  70. -- rect: left=127 top=38 right=57 bottom=496
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 0
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: Title
  79.  
  80.  
  81. -- part 13 (field)
  82. -- low flags: 00
  83. -- high flags: 0007
  84. -- rect: left=18 top=76 right=304 bottom=495
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 0
  88. -- font id: 3
  89. -- text size: 10
  90. -- style flags: 0
  91. -- line height: 13
  92. -- part name: Description
  93.  
  94.  
  95. -- part 15 (button)
  96. -- low flags: 00
  97. -- high flags: 0000
  98. -- rect: left=263 top=306 right=331 bottom=290
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 1013 / 1013
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Next
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   visual effect wipe left
  110.   go to next card
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part 19 (button)
  116. -- low flags: 00
  117. -- high flags: 0000
  118. -- rect: left=10 top=31 right=61 bottom=43
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: New Button
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   doMenu "New Card"
  130. end mouseUp
  131.  
  132.  
  133.  
  134. -- part 24 (button)
  135. -- low flags: 00
  136. -- high flags: 8004
  137. -- rect: left=404 top=308 right=326 bottom=497
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Index Card
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   visual effect dissolve
  149.   go to card "Index Card"
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 25 (button)
  155. -- low flags: 00
  156. -- high flags: 8004
  157. -- rect: left=19 top=309 right=327 bottom=148
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Install to Stack
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   get FileName("STAK")
  169.   if it is not empty then copyCommands it
  170. end mouseUp
  171.  
  172. on copyCommands toStack
  173.   put the value of word 2 of long name of this stack into fromStack
  174.   answer "Are you sure you want to do this?" with "Cancel" or "OK"
  175.   if it is "OK" then
  176.     set cursor to 4
  177.     put "ModResCopy fromStack, toStack, " into command
  178.     get field type
  179.     put quote & it & quote & ", " after command
  180.     get short name of this card
  181.     put quote & it & quote after command
  182.     --ModResCopy fromStack,toStack,"XFCN","NewMenu"
  183.     --put command
  184.     do command
  185.     answer "Installation complete!" with "OK"
  186.   end if
  187. end copyCommands
  188.  
  189.